unit uRecMsg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uTranGlobal, uTranConst, uTranFunction;

type
  TfRecMsg = class(TForm)
  private
    procedure WMCOPYDATA(var Msg: TWMCopyData); message WM_COPYDATA;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fRecMsg: TfRecMsg;

implementation

{$R *.dfm}

procedure TfRecMsg.WMCOPYDATA(var Msg: TWMCopyData);
var 
  S: string;
begin
  SetLength(S, Msg.CopyDataStruct.cbData);
  CopyMemory(@S[1], Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
  TranTask.AddTaskInfo(s);
  ForceForegroundWindow(Application.Handle);
end;

end.
